home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 5 / CD_Magazyn_EXEC_nr_5.iso / eXec / Krotkie opisy / Programy / HTMLreadV1.0.lha / HTMLreadINSTALL / Install next >
Text File  |  2001-02-15  |  10KB  |  336 lines
  1. ; Installer installation script for HTMLread.rexx
  2. ; $VER:Install HTMLread V1.00 (04.02.2000)
  3.  
  4. (set @default-dest "YAM:")
  5. (set @app-name "HTMLread Install")
  6. (set @pretend 0)
  7. (set @user-level 1)
  8.  
  9. ;(user 1)
  10.  
  11. (if (< (/ (getversion) 65536) 37)
  12.   (
  13.     (abort "You must have Kickstart 2.0 or higher installed to use HTMLread!")
  14.   )
  15. )
  16.  
  17. (complete 0)
  18.  
  19. (message "\nHTMLread installation!\n\n\n"
  20.          "This script installs HTMLread\n"
  21.          "on your Amiga.\n\n"
  22.          "HTMLread need YAM 2.1\n"
  23.          "and of course a running RexxMast"
  24. )
  25.  
  26. (complete 5)
  27.  
  28. (if (exists "Libs/rexxreqtools.library" (noreq))
  29.   (
  30.     (complete 10)
  31.  
  32.     (copylib
  33.       (prompt "\nCopying rexxreqtools.library to LIBS:...")
  34.       (help "The rexxreqtools.library used from:\n"
  35.             "- HTMLreadPrefs\n"
  36.             "- Optimizer\n\n\n"
  37.             @copylib-help)
  38.       (source "Libs/rexxreqtools.library")
  39.       (dest "LIBS:")
  40.       (confirm 1)
  41.       (optional "nofail")
  42.       (delopts "askuser")
  43.     )
  44.   )
  45. )
  46.  
  47. (complete 15)
  48.  
  49. (if (exists "Libs/reqtools.library" (noreq))
  50.   (
  51.     (complete 20)
  52.  
  53.     (copylib
  54.       (prompt "\nCopying reqtools.library to LIBS:...")
  55.       (help @copylib-help)
  56.       (source "Libs/reqtools.library")
  57.       (dest "LIBS:")
  58.       (confirm 1)
  59.       (optional "nofail")
  60.       (delopts "askuser")
  61.     )
  62.   )
  63. )
  64.  
  65. (complete 25)
  66.  
  67. (set temp (EXISTS "YAM:HTMLread" (noreq)))
  68.  
  69. (IF (= "2" temp)
  70.   ( (IF  (askchoice (prompt "\n\nDo you want backup the old HTMLread?\n")
  71.                     (help "If you choose: Yes, of course!\n"
  72.                           "the installer will rename the old HTMLread\n"
  73.                           "to HTMLread.bak. A old HTMLread.bak will be\n"
  74.                           "deleted.\n\n"
  75.                           "If you choose: No, delete the old!\n"
  76.                           "the Installer delete the old HTMLread drawer.\n\n\n\n"
  77.                           @askchoice-help
  78.                     )
  79.                     (choices "Yes, of course!"
  80.                              "No, delete the old!"
  81.                     )
  82.                     (default "0")  )
  83.         (  (run "C:delete YAM:HTMLread/#? YAM:HTMLread YAM:HTMLread.info YAM:UnInstall YAM:UnInstall.info ALL FORCE QUIET")
  84.            (complete 26)
  85.         )
  86.         (  (if (exists "YAM:HTMLread.bak")
  87.              ( (run "C:delete YAM:HTMLread.bak/#? YAM:HTMLread.bak YAM:HTMLread.bak.info YAM:UnInstall YAM:UnInstall.info ALL FORCE QUIET")
  88.                (rename "YAM:HTMLread" "YAM:HTMLread.bak")
  89.                (rename "YAM:HTMLread.info" "YAM:HTMLread.bak.info")
  90.                (message "\n\n\n\n\nOk, I backuped HTMLread to HTMLread.bak")
  91.              )
  92.              ( (rename "YAM:HTMLread" "YAM:HTMLread.bak")
  93.                (rename "YAM:HTMLread.info" "YAM:HTMLread.bak.info")
  94.                (message "\n\n\n\n\nOk, I backuped HTMLread to HTMLread.bak")
  95.              )
  96.            )
  97.         )
  98.     )
  99.   )
  100. )
  101.  
  102. (complete 30)
  103.  
  104. (copyfiles
  105.            (prompt "Copy HTMLread-drawer!\nA new drawer will be created!")
  106.            (source "installfiles")
  107.            (dest ("YAM:"))
  108.            (help "This is the support-drawer for HTMLread\n"
  109.                  "Here you find the prefseditor, docs...\n\n\n\n"
  110.                  @copyfiles-help
  111.            )
  112.            (infos)
  113.            (confirm 1)
  114.            (all)
  115.            (optional "nofail")
  116.            (delopts "askuser")
  117.            (safe)
  118. )
  119.  
  120. (complete 65)
  121.  
  122. (set RexxPath (EXISTS "YAM:Rexx" (noreq)))
  123.  
  124. (IF (= "0" RexxPath)
  125.         (set RexxPath (askdir (prompt "\nWere can I install the HTMLread.rexx?\nPlease choose youre Rexx-drawer!\n")
  126.                           (help "HTMLread.rexx is the most importend part. Please copy this to youre Rexx drawer. For example YAM:Rexx/\n\n"
  127.                                 @askdir-help
  128.                           )
  129.                           (default "YAM:")
  130.                   )
  131.         )
  132.         ( (set RexxPath "YAM:Rexx") )
  133. )
  134.  
  135. (complete 70)
  136. (copyfiles (prompt "\nNow you should copy the checkHTML.rx!\n"
  137.                    "This is the file that detect HTML-EMails and start HTMLread.rx!\n"
  138.            )
  139.            (source "installfiles/HTMLread/Scripts/OPT/checkHTML.rx")
  140.            (dest RexxPath)
  141.            (help @copyfiles-help)
  142.            (infos)
  143.            (optional "nofail")
  144.            (delopts "askuser")
  145.            ( confirm 2 )
  146.            (safe)
  147. )
  148. (complete 75)
  149.  
  150. (set temp 1)
  151. (if (< (/ (getversion) 65536) 39)
  152.   ( (set temp 0) )
  153. )
  154.  
  155. (set temp (askchoice (prompt "\n\nPlease selcet the HTMLread binary!\nWhich Version do you want use?\n")
  156.                      (help "\nNote, the OS3.0-Version will cause a GURU if you use it with V2.x\n\n\n"
  157.                            @askchoice-help
  158.                      )
  159.                      (choices "OS2.x-Version"
  160.                               "OS3.x-Version"
  161.                      )
  162.                      (default temp)
  163.           )
  164. )
  165.  
  166. (IF (= "0" temp)
  167.       ( (set temp "installfiles/HTMLread/bin/HTMLread.OS2") )
  168.       ( (set temp "installfiles/HTMLread/bin/HTMLread.OS3") )
  169. )
  170.  
  171. (copyfiles (prompt "\nNow you should copy the HTMLread binary!\n"
  172.                    "This file converts youre HTMLmail!\n"
  173.            )
  174.            (source temp)
  175.            (dest "C:")
  176.            (newname "HTMLread")
  177.            (help "Here you copy one of the most importend parts: HTMLread binary"
  178.                  "You can find this file in YAM:HTMLread/bin/, too.\n\n\n"
  179.                  @copyfiles-help
  180.            )
  181.            (infos)
  182.            (optional "nofail")
  183.            (delopts "askuser")
  184.            ( confirm 2 )
  185.            (safe)
  186. )
  187. (complete 78)
  188. ( set temp ( cat RexxPath "/HTMLread.rx" ) )
  189.  
  190. (textfile (prompt "\nSet ENV:HTMLread to \n»"
  191.                   temp
  192.                   "«\n\nIn ENV:HTMLread checkHTML.rx find the path for HTMLread.rx\n"
  193.           )
  194.           (help   "\nCopy HTMLreadpath to ENV:...\n")
  195.           ( dest "ENV:HTMLread" )
  196.           ( append temp )
  197.           ( confirm 2 )
  198.           ( safe )
  199. )
  200. (complete 79)
  201. (textfile (prompt "\nSet ENVARC:HTMLread\n"
  202.                   "Restore ENV:HTMLread after a reset\n"
  203.           )
  204.           (help   "\nCopy HTMLreadpath to ENVARC:...\n")
  205.           ( dest "ENVARC:HTMLread" )
  206.           ( append temp )
  207.           ( confirm 2 )
  208.           ( safe )
  209. )
  210. (complete 80)
  211.  
  212. (copyfiles (prompt "\nNow you should copy the HTMLread.rx!\n"
  213.                    "This start youre HTML-Viewer!\n"
  214.            )
  215.            (source "installfiles/HTMLread/Scripts/OPT/HTMLread.rx")
  216.            (dest RexxPath)
  217.            (help "Here you copy the most importend part: HTMLread.rx "
  218.                  "You can find this file in YAM:HTMLread/Scripts/, too.\n\n\n"
  219.                  @copyfiles-help
  220.            )
  221.            (infos)
  222.            (optional "nofail")
  223.            (delopts "askuser")
  224.            ( confirm 2 )
  225.            (safe)
  226. )
  227. (complete 85)
  228.  
  229. (copyfiles (prompt "\nNow you should copy the HRdownload.rx!\n"
  230.                    "This downloads youre added pictures in the imagelist!\n"
  231.            )
  232.            (source "installfiles/HTMLread/Scripts/OPT/HRdownload.rx")
  233.            (dest RexxPath)
  234.            (help @copyfiles-help)
  235.            (infos)
  236.            (optional "nofail")
  237.            (delopts "askuser")
  238.            ( confirm 2 )
  239.            (safe)
  240. )
  241. (complete 90)
  242.  
  243. (copyfiles
  244.            (prompt "\nNow you should copy the (ON/Off)line-Plugin!\n"
  245.                    "This Plugin control youre TCP/IP-stack.\n"
  246.            )
  247.            (source "installfiles/HTMLread/Scripts/OPT/onlinePlugins")
  248.            (dest RexxPath)
  249.            (help @copyfiles-help)
  250.            (infos)
  251.            (confirm 1)
  252.            (all)
  253.            (optional "nofail")
  254.            (delopts "askuser")
  255.            (safe)
  256. )
  257. (complete 94)
  258.  
  259. (copyfiles
  260.            (prompt "\nNow you should copy the status-gifs!")
  261.            (source "Icons")
  262.            (dest "YAM:Icons/")
  263.            (help @copyfiles-help)
  264.            (infos)
  265.            (confirm 1)
  266.            (all)
  267.            (optional "nofail")
  268.            (delopts "askuser")
  269.            (safe)
  270. )
  271. (complete 95)
  272. (copyfiles (prompt "\nNow you should copy the badurl list!\n"
  273.                    "This file protect you against EMail watching!\n"
  274.            )
  275.            (source "installfiles/HTMLread/badurls.HTMLread")
  276.            (dest "YAM:")
  277.            (help
  278.                  @copyfiles-help
  279.            )
  280.            (infos)
  281.            (optional "nofail")
  282.            (delopts "askuser")
  283.            ( confirm 2 )
  284.            (safe)
  285. )
  286. (complete 99)
  287.  
  288. (set temp (askchoice (prompt "\n\nDo you want read the HTMLreadGuide now?\n\nPlease read chapter »How to install«\n")
  289.                      (help "\nIt is strongly advisable to read the guide, because some changes in YAM-Config have to made\n\n\n"
  290.                            @askchoice-help
  291.                      )
  292.                      (choices "No, I read the guide later!"
  293.                               "Yes, the english please"
  294.                               "Ja, die deutsche bitte"
  295.                      )
  296.                      (default "1")
  297.           )
  298. )
  299. (if (= temp 0)
  300.   ( (message
  301.          "The ARexx-scripts are now installed. Please read "
  302.          "the docfile HTMLread.doc. "
  303.          "Because you must configure YAM!\n\n"
  304.          "Fast: Start YAM and run the configwindow. Choose under ARexx: "
  305.          "»When reading a message«, "
  306.          "Type »YAM:Rexx/checkHTML.rx«, do  NOT  mark the two button "
  307.          "»Open console window« and »Wait for termination«! Save the config! "
  308.          "Open the drawer YAM:HTMLread und start "
  309.          "HTMLreadPrefs, click Viewer and choose one, "
  310.          "save the config!\nReady!"
  311.     )
  312.   )
  313. )
  314. (if (= temp 1)
  315.    ( (run "SYS:Utilities/MultiView YAM:HTMLread/DOC/HTMLread.EN.guide"
  316.            (prompt "\nStart MultiView with HTMLread.EN.guide\nPlease read chapter »How to install«")
  317.            (help "\n\n\nDo you want read the doc?\n\n\n")
  318.            (confirm 2)
  319.            (safe)
  320.      )
  321.  
  322.    )
  323. )
  324. (if (= temp 2)
  325.    (  (run "SYS:Utilities/MultiView YAM:HTMLread/DOC/HTMLread.DE.guide"
  326.            (prompt "\nStart MultiView with HTMLread.DE.guide")
  327.            (help "\n\n\nDo you want read the doc?\n\n\n")
  328.            (confirm 2)
  329.            (safe)
  330.       )
  331.    )
  332. )
  333.  
  334. (complete 100)
  335. (exit)
  336.